home *** CD-ROM | disk | FTP | other *** search
/ Cracking 1 / Cracking I..iso / Tools / Ostatní / aPLib v0.26b / examples / ada / aplib.ads < prev    next >
Encoding:
Text File  |  2001-12-15  |  685 b   |  27 lines
  1. --
  2. -- aPLib compression library  -  the smaller the better :)
  3. --
  4. -- Ada binding for aplib.a
  5. --
  6. -- Copyright (c) 1998-2000 by Joergen Ibsen / Jibz
  7. -- All Rights Reserved
  8. --
  9. -- Ada binding by Gautier.deMontmollin@Maths.UniNe.CH
  10. --
  11.  
  12. generic
  13.   type packed_data is private;
  14.   type unpacked_data is private;
  15.   with procedure Call_back(unpacked, packed: integer; continue: out boolean);
  16.  
  17. package aPLib is
  18.  
  19.   procedure Pack(source: unpacked_data;
  20.                  destination: out packed_data;
  21.                  packed_length: out integer);
  22.  
  23.   procedure Depack(source: packed_data; destination: out unpacked_data);
  24.  
  25.   pack_failed, unpack_failed: exception;
  26.  
  27. end aPLib;